local F=Vector3.new(3,3,3) local y="marshmellow_stage" local o=CFrame.new(0,0,-10) local s="rbxassetid://921977739" local q="rbxassetid://921977754" local r=Vector3.new(.1,.1,.1) local n=Vector3.new(0,.2,0) local B=6 local m=4 local f=Color3.fromRGB(236,139,70) local k=Color3.fromRGB(139,80,55) local v=25 local E=.5 local D=5 local _=3 local u=.02 local C=1 local p="http://www.roblox.com/asset/?id=12517136" local b=4 local j=1 local l="http://www.roblox.com/asset/?id=12544690" local h=1.5 local i=.5 local g="rbxassetid://7196552885" local c=8 local a=1 local d=true local e=4 local w=game:GetService("RunService") local J=game:GetService("Debris") local K=game:GetService("TweenService") local N={} local A=false local I=false local H=false local z=0 local G=owner local L=TweenInfo.new(2,Enum.EasingStyle.Quart,Enum.EasingDirection.Out,0,false,0) local function M(a,_)local b=Instance.new(a) for a,_ in pairs(_)do b[a]=_ end return b end local function x(a)a=a or 1/60 local _=os.clock() while os.clock()-_<a do w.Stepped:Wait()end end local function t()I=true H=true local a=M("Tool",{Name="Select Campfire Position",ToolTip="Click to select the position of the campfire",CanBeDropped=false,Parent=G.Character}) local _=M("SpawnLocation",{Name="Handle",Transparency=1,Locked=true,Size=Vector3.new(1,1,1),Enabled=false,CanCollide=false,Massless=true,Parent=a}) a.Equipped:Connect(function()I=true end) a.Unequipped:Connect(function()I=false end) a.Activated:Connect(function()I=false H=false J:AddItem(a,0) return end) local _ _=G.CharacterAdded:Connect(function()if H then t() _:Disconnect() return end end)end function N:create()N.posSelect=M("SpawnLocation",{Name="PosSelect",Transparency=.7,Locked=true,Size=F,Enabled=false,CanCollide=false,Anchored=true,Parent=script}) N.base=M("SpawnLocation",{Name="Base",Locked=true,Size=F,CFrame=o,Enabled=false,CanCollide=false,Anchored=true}) N.campfireModel=M("Model",{Name="CampfireModel",Archivable=false,PrimaryPart=N.base}) N.base.Parent=N.campfireModel N.heatSpace=M("SpawnLocation",{Name="Heat",Transparency=1,Locked=true,Size=Vector3.new(D,D,D),CFrame=N.base.CFrame*CFrame.new(0,F.Y/2+_,0),Enabled=false,CanCollide=false,Anchored=true,Shape=Enum.PartType.Ball,Parent=N.campfireModel}) N.heatSpace.Touched:Connect(function()end) N.getPrompt=M("ProximityPrompt",{Name="Prompt",ActionText="Get marshmellow",HoldDuration=1,ObjectText="Campfire",RequiresLineOfSight=false,Parent=N.base}) N.throwPrompt=M("ProximityPrompt",{Name="Prompt",ActionText="Throw tool into fire",GamepadKeyCode=Enum.KeyCode.ButtonY,HoldDuration=.2,KeyboardKeyCode=Enum.KeyCode.F,MaxActivationDistance=13,ObjectText="Campfire",RequiresLineOfSight=false,UIOffset=Vector2.new(0,0)}) local _=M("SpawnLocation",{Name="ThrowPart",Transparency=1,Locked=true,Size=Vector3.new(1,1,1),Position=N.base.Position+Vector3.new(0,-2,0),Enabled=false,CanCollide=false,Anchored=true,Parent=N.base}) N.throwPrompt.Parent=_ N.mesh=M("SpecialMesh",{Name="Mesh",MeshId=s,MeshType=Enum.MeshType.FileMesh,Offset=n+Vector3.new(0,F.Y/2,0),Scale=r,TextureId=q,Parent=N.base}) N.fire=M("Fire",{Name="Fire",Color=f,Heat=m,SecondaryColor=k,Size=B,Parent=N.base}) N.getSound=M("Sound",{Name="GetSound",PlaybackSpeed=j,RollOffMaxDistance=30,RollOffMinDistance=10,SoundId=p,Volume=b,Parent=N.base}) N.fireSound=M("Sound",{Name="FireSound",Looped=true,Playing=true,PlaybackSpeed=a,RollOffMaxDistance=30,RollOffMinDistance=10,SoundId=g,Volume=c,Parent=N.base}) N.fireLight=M("PointLight",{Name="FireLight",Brightness=6,Color=Color3.fromRGB(255,170,0),Range=8,Shadows=true,Parent=N.base}) N.log=function()local _=M("Model",{Name="LogModel"}) local c=M("SpawnLocation",{Name="Log",BrickColor=BrickColor.new("Pine Cone"),Material=Enum.Material.Wood,Locked=true,Size=Vector3.new(10,2.5,2.5),Enabled=false,Anchored=true,Shape=Enum.PartType.Cylinder,Parent=_}) local a=c:Clone() a.Name="Inner" a.BrickColor=BrickColor.new("Beige") a.Size=Vector3.new(10.002,2.3,2.3) a.Parent=c for a=1,3 do local b if a==1 then b=c.CFrame*CFrame.new(-c.Size.X/2+1.5,.5,0)elseif a==2 then b=c.CFrame*CFrame.new(c.Size.X/2-1.5,.5,0)else b=c.CFrame*CFrame.new(0,.5,0)end local _=M("Seat",{Name="Seat"..a,Transparency=1,Locked=true,Size=Vector3.new(1,1,1),CFrame=b,CanCollide=false,Anchored=true,Parent=_})end return _ end if d then for _=0,math.clamp(e,0,4)-1 do local a=N.log() a:PivotTo(N.base.CFrame*CFrame.Angles(0,math.rad(90*_),0)*CFrame.new(0,1.25,7)) a.Parent=N.campfireModel for _,_ in pairs(a:GetChildren())do if _:IsA("Seat")then _.CFrame=CFrame.lookAt(_.Position,(N.base.CFrame*CFrame.new(0,1.5,0)).Position)end end end end N.tool=M("Tool",{Name="Marshmellow Stick",ToolTip="Click to retrieve marshmellow",CanBeDropped=true}) N.tool:SetAttribute(y,0) local a=M("SpawnLocation",{Name="Handle",Transparency=1,Locked=true,Size=Vector3.new(1,1,1),Enabled=false,CanCollide=false,Parent=N.tool}) local _=M("SpawnLocation",{Name="Stick",BrickColor=BrickColor.new("Pine Cone"),Transparency=1,Material=Enum.Material.Wood,Locked=true,Size=Vector3.new(5,.2,.2),Enabled=false,CanCollide=false,Massless=true,Shape=Enum.PartType.Cylinder,Parent=N.tool}) local _=M("Weld",{Name="SWeld",C0=CFrame.new(0,0,-2.5)*CFrame.Angles(0,math.rad(90),0),Part0=a,Parent=a}) local _=M("SpawnLocation",{Name="Marshmellow",Color=Color3.fromHSV(v/255,0,1),Transparency=1,Locked=true,Size=Vector3.new(E,E,E),Enabled=false,CanCollide=false,Massless=true,Shape=Enum.PartType.Cylinder,TopSurface=Enum.SurfaceType.Smooth,BottomSurface=Enum.SurfaceType.Smooth,Parent=N.tool}) local _=M("Weld",{Name="MWeld",C0=CFrame.new(0,0,-4.55)*CFrame.Angles(0,math.rad(90),0),Part0=a,Parent=a}) local _=M("Sound",{Name="DrinkSound",PlaybackSpeed=i,RollOffMaxDistance=20,RollOffMinDistance=5,SoundId=l,Volume=h,Parent=a})end local function _(a)local _=a.Character if _ then N.getSound:Play() local j=N.tool:Clone() local b=j.Handle local i=j.Marshmellow local f=j.Stick local h=b.MWeld local g=b.SWeld local d=b.DrinkSound for _,_ in pairs(_:GetChildren())do if _:IsA("Tool")then _.Parent=a:FindFirstChild("Backpack")end end j.Parent=_ local e=j.Parent:FindFirstChildWhichIsA("Humanoid") local a=j.Parent:FindFirstChild("HumanoidRootPart") wait() if a then for _,b in pairs(a:GetJoints())do if b:IsA("Weld")and b.Name=="SeatWeld"then a.Anchored=true local _=b.Parent b.Parent=nil wait(.2) a.Anchored=false b.Parent=_ end end end h.Part1=i g.Part1=f h.C0=b.CFrame:toObjectSpace(N.base.CFrame) g.C0=b.CFrame:toObjectSpace(N.base.CFrame) local _=K:Create(h,L,{C0=CFrame.new(0,0,-4.55)*CFrame.Angles(0,math.rad(90),0)}) local a=K:Create(g,L,{C0=CFrame.new(0,0,-2.5)*CFrame.Angles(0,math.rad(90),0)}) local c=K:Create(i,L,{Transparency=0}) local b=K:Create(f,L,{Transparency=0}) _:Play() a:Play() c:Play() b:Play() j.Activated:Connect(function()local _=j:GetAttribute(y) if _==0 then local _,_,a=Color3.toHSV(i.Color) if a<.02 then j.Name="Coal"else j.Name="Marshmellow"end local _ if a<.02 then _="-10"elseif a>=.02 and a<.9 then _="+20"elseif a>=.9 then _="+2"end j.ToolTip="Click to eat (".._.."hp)" local a=K:Create(h,L,{C0=CFrame.new()}) local _=K:Create(g,L,{C0=g.C0*CFrame.new(0,-2,0)}) local b=K:Create(f,L,{Transparency=1}) a:Play() _:Play() b:Play() b.Completed:Connect(function()J:AddItem(f,0)end)elseif _==1 then local b=false local _=false local c=j.Parent:FindFirstChild("Head") local a=K:Create(i,L,{Transparency=1}) a:Play() d.Ended:Connect(function()b=true if _ then J:AddItem(j,0) return end end) a.Completed:Connect(function()_=true if b then J:AddItem(j,0) return end end) d:Play() if c then local _=M("Weld",{Name="HWeld",Part0=c,C0=c.CFrame:toObjectSpace(i.CFrame),Parent=c}) J:AddItem(h,0) _.Part1=i local _=K:Create(_,L,{C0=CFrame.new()}) _:Play()end local _,_,_=Color3.toHSV(i.Color) if _<.02 then e.Health-=10 elseif _>=.02 and _<.9 then e.Health+=20 elseif _>=.9 then e.Health+=2 end end j:SetAttribute(y,_+1)end)end end local function a(_)local _=_.Character if _ then local b=_:FindFirstChildWhichIsA("Tool") if b then b.Enabled=false for _,_ in pairs(b:GetDescendants())do if _:IsA("TouchTransmitter")then J:AddItem(_,0)end if _:IsA("BasePart")then _.CanTouch=false end end if b.Name=="Marshmellow Stick"or b.Name=="Coal on a Stick"or b.Name=="Marshmellow"or b.Name=="Coal"and b:FindFirstChild("Marshmellow")then z+=1 N.fire.Size=B+5 coroutine.wrap(function()x(4) z-=1 if z==0 then N.fire.Size=B end end)()end local a=b:FindFirstChild("Handle") if a then local _=a.CFrame a.Anchored=true b.Parent=script a.CFrame=_ local _=K:Create(a,L,{CFrame=N.base.CFrame*CFrame.new(0,-1,0)}) _:Play() _.Completed:Connect(function()J:AddItem(b,0)end)else J:AddItem(b,0)end end end end N:create() t() N.getPrompt.Triggered:Connect(_) N.throwPrompt.Triggered:Connect(a) w.Stepped:Connect(function()if I and H then N.posSelect.Parent=script N.campfireModel.Parent=nil if G.Character then if G.Character:FindFirstChild("HumanoidRootPart")then N.posSelect.CFrame=G.Character.HumanoidRootPart.CFrame*CFrame.new(0,-3,-10)end end elseif not I and H then N.posSelect.Parent=nil N.campfireModel.Parent=nil elseif not I and not H then N.campfireModel.Parent=script N.posSelect.Parent=nil if N.base.CFrame~=N.posSelect.CFrame then N.campfireModel:PivotTo(N.posSelect.CFrame)end if not A then A=true for _,c in pairs(N.heatSpace:GetTouchingParts())do if c:IsA("SpawnLocation")and c.Name=="Marshmellow"and c.Parent:FindFirstChild("Stick")and c.Parent:IsA("Tool")then local _,_,b=Color3.toHSV(c.Color) c.Parent.ToolTip="Click to eat (Darkness Level: "..math.floor((1-b)*100).."%)" local a=math.random(0,100) local _=Color3.fromHSV(v/255,math.min(_+u*C,1),math.max(1-(1-b+u*C),0)) if(b==0 or a<=1)and not c:FindFirstChild("MarshmellowFireEffect")then _=Color3.new(0,0,0) local _=M("Fire",{Name="MarshmellowFireEffect",Heat=3,Size=2,Parent=c}) c.Parent.Name="Coal on a Stick"end c.Color=_ end if c.Parent:FindFirstChildWhichIsA("Humanoid")and c.Parent:IsA("Model")and c.Parent:FindFirstChild("HumanoidRootPart")then if not c.Parent.HumanoidRootPart:FindFirstChild("gotburntlol")then local _,_=pcall(function()local _=M("Fire",{Name="gotburntlol",Heat=9,Size=15,Parent=c.Parent.HumanoidRootPart}) J:AddItem(_,5)end) c.Parent:FindFirstChildWhichIsA("Humanoid"):TakeDamage(20)end end end coroutine.wrap(function()x(C) A=false end)()end end end)